object Form1: TForm1
  Left = 128
  Top = 183
  ActiveControl = Allbutton
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MicroLot Lotto  ....'
  ClientHeight = 290
  ClientWidth = 568
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 16
  object sp7: TImage
    Left = 372
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object blank: TImage
    Left = 384
    Top = 392
    Width = 49
    Height = 41
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object ball5: TImage
    Left = 328
    Top = 392
    Width = 49
    Height = 41
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object ball4: TImage
    Left = 272
    Top = 392
    Width = 49
    Height = 41
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object ball3: TImage
    Left = 384
    Top = 352
    Width = 49
    Height = 41
    Picture.Data = {<image005.bmp>}
    Visible = False
  end
  object ball2: TImage
    Left = 328
    Top = 352
    Width = 49
    Height = 41
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object ball1: TImage
    Left = 272
    Top = 352
    Width = 49
    Height = 41
    Picture.Data = {<image007.bmp>}
    Visible = False
  end
  object sp6: TImage
    Left = 292
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object sp5: TImage
    Left = 236
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image009.bmp>}
    Visible = False
  end
  object sp1: TImage
    Left = 12
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object sp2: TImage
    Left = 68
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image011.bmp>}
    Visible = False
  end
  object sp4: TImage
    Left = 179
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image012.bmp>}
    Visible = False
  end
  object sp3: TImage
    Left = 124
    Top = 36
    Width = 57
    Height = 49
    Picture.Data = {<image013.bmp>}
    Visible = False
  end
  object sel1: TImage
    Left = 16
    Top = 40
    Width = 49
    Height = 41
  end
  object sel2: TImage
    Left = 72
    Top = 40
    Width = 49
    Height = 41
  end
  object sel3: TImage
    Left = 128
    Top = 40
    Width = 49
    Height = 41
  end
  object sel4: TImage
    Left = 184
    Top = 40
    Width = 49
    Height = 41
  end
  object sel5: TImage
    Left = 240
    Top = 40
    Width = 49
    Height = 41
  end
  object sel6: TImage
    Left = 296
    Top = 40
    Width = 49
    Height = 41
  end
  object sel7: TImage
    Left = 376
    Top = 40
    Width = 49
    Height = 41
  end
  object Bonuslabel: TLabel
    Left = 364
    Top = 20
    Width = 72
    Height = 16
    Caption = 'Bonus Ball'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label1: TLabel
    Left = 96
    Top = 104
    Width = 103
    Height = 16
    Caption = 'Previous Draws'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 448
    Top = 104
    Width = 97
    Height = 97
    Picture.Data = {<image014.bmp>}
  end
  object ball7: TImage
    Left = 272
    Top = 432
    Width = 49
    Height = 41
    Picture.Data = {<image015.bmp>}
  end
  object lined6: TEdit
    Left = 192
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 44
  end
  object lined5: TEdit
    Left = 168
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 43
  end
  object lined4: TEdit
    Left = 144
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 42
  end
  object linec6: TEdit
    Left = 192
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 37
  end
  object linec5: TEdit
    Left = 168
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 36
  end
  object linec4: TEdit
    Left = 144
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 35
  end
  object Buttonreg: TButton
    Left = 272
    Top = 112
    Width = 81
    Height = 33
    Hint = 'Press here to register'
    Caption = '&Register'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 63
    OnClick = ButtonregClick
  end
  object Buttonstat: TButton
    Left = 354
    Top = 112
    Width = 81
    Height = 33
    Hint = 'Press here for staatistics of numbers'
    Caption = 'S&tatistics'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 62
    OnClick = ButtonstatClick
  end
  object Buttonview: TButton
    Left = 354
    Top = 144
    Width = 81
    Height = 33
    Hint = 'Press here to view all numbers'
    Caption = '&View List'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ButtonviewClick
  end
  object Buttonchange: TButton
    Left = 272
    Top = 144
    Width = 81
    Height = 33
    Hint = 'Press here to change selection'
    Caption = '&Options'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = ButtonchangeClick
  end
  object Buttonsim: TButton
    Left = 354
    Top = 176
    Width = 81
    Height = 33
    Hint = 'Press here for simulated draw with entry'
    Caption = 'Sim &Draw'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 57
    OnClick = ButtonsimClick
  end
  object Buttonfav: TButton
    Left = 272
    Top = 176
    Width = 81
    Height = 33
    Hint = 'Press here to enter your favourite numbers'
    Caption = '&Fav Nums'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 56
    OnClick = ButtonfavClick
  end
  object Buttoninfo: TButton
    Left = 354
    Top = 208
    Width = 81
    Height = 33
    Hint = 'Press here for info'
    Caption = '&Info'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 58
    OnClick = ButtoninfoClick
  end
  object Buttonexit: TButton
    Left = 448
    Top = 208
    Width = 97
    Height = 33
    Hint = 'Press here to leave MicroLot'
    Caption = 'E&xit'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = ButtonexitClick
  end
  object Buttonhelp: TButton
    Left = 272
    Top = 208
    Width = 81
    Height = 33
    Hint = 'Press here to get help'
    Caption = '&Help'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = ButtonhelpClick
  end
  object lined: TEdit
    Left = 26
    Top = 216
    Width = 33
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    ReadOnly = True
    TabOrder = 49
  end
  object linec: TEdit
    Left = 26
    Top = 184
    Width = 33
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    ReadOnly = True
    TabOrder = 48
  end
  object lineb: TEdit
    Left = 26
    Top = 152
    Width = 33
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    ReadOnly = True
    TabOrder = 47
  end
  object linea: TEdit
    Left = 26
    Top = 120
    Width = 33
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 3
    ParentFont = False
    ReadOnly = True
    TabOrder = 46
  end
  object lined3: TEdit
    Left = 120
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 41
  end
  object lined2: TEdit
    Left = 96
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 40
  end
  object lined1: TEdit
    Left = 72
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 39
  end
  object linec3: TEdit
    Left = 120
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 34
  end
  object linec2: TEdit
    Left = 96
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 33
  end
  object linec1: TEdit
    Left = 72
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 32
  end
  object lineb7: TEdit
    Left = 224
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 31
  end
  object lineb6: TEdit
    Left = 192
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 30
  end
  object lineb5: TEdit
    Left = 168
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 29
  end
  object lineb4: TEdit
    Left = 144
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 28
  end
  object lineb3: TEdit
    Left = 120
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 27
  end
  object lineb2: TEdit
    Left = 96
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 26
  end
  object lineb1: TEdit
    Left = 72
    Top = 152
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 25
  end
  object linea7: TEdit
    Left = 224
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 24
  end
  object linea6: TEdit
    Left = 192
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 23
  end
  object linea5: TEdit
    Left = 168
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 22
  end
  object linea4: TEdit
    Left = 144
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 21
  end
  object linea3: TEdit
    Left = 120
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 20
  end
  object linea2: TEdit
    Left = 96
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 19
  end
  object linea1: TEdit
    Left = 72
    Top = 120
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 18
  end
  object linec7: TEdit
    Left = 224
    Top = 184
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 38
  end
  object lined7: TEdit
    Left = 224
    Top = 216
    Width = 25
    Height = 24
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MaxLength = 2
    ParentFont = False
    ReadOnly = True
    TabOrder = 45
  end
  object viewoption: TPanel
    Left = 440
    Top = 104
    Width = 113
    Height = 145
    BevelInner = bvRaised
    Color = clSilver
    TabOrder = 51
    Visible = False
    object Label5: TLabel
      Left = 8
      Top = 8
      Width = 95
      Height = 33
      Alignment = taCenter
      Caption = ' Press Finish to exit'
      Color = clLime
      ParentColor = False
      WordWrap = True
    end
    object Savebutton: TButton
      Left = 8
      Top = 96
      Width = 97
      Height = 33
      Hint = 'Press here to Save Draw'
      Caption = '&Save'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SavebuttonClick
    end
    object printbutton: TButton
      Left = 8
      Top = 56
      Width = 97
      Height = 33
      Hint = 'Press here to Print draw'
      Caption = '&Print'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = PrintButtonClick
    end
  end
  object Buttonallback: TPanel
    Left = 440
    Top = 40
    Width = 113
    Height = 65
    Caption = 'Buttonallback'
    Color = clLime
    TabOrder = 53
  end
  object playendnum: TMediaPlayer
    Left = 16
    Top = 400
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 14
    OnNotify = playendnumNotify
  end
  object Playnum: TMediaPlayer
    Left = 16
    Top = 336
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 16
    OnNotify = PlaynumNotify
  end
  object PlayIntro: TMediaPlayer
    Left = 16
    Top = 304
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 17
    OnNotify = PlayIntroNotify
  end
  object num1: TEdit
    Left = 272
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 12
    Visible = False
  end
  object num2: TEdit
    Left = 296
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 11
    Visible = False
  end
  object num3: TEdit
    Left = 320
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 10
    Visible = False
  end
  object num4: TEdit
    Left = 344
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 9
    Visible = False
  end
  object num5: TEdit
    Left = 368
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 8
    Visible = False
  end
  object num6: TEdit
    Left = 392
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 7
    Visible = False
  end
  object playendintro: TMediaPlayer
    Left = 16
    Top = 368
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 15
    OnNotify = playendintroNotify
  end
  object num7: TEdit
    Left = 424
    Top = 336
    Width = 25
    Height = 24
    TabStop = False
    MaxLength = 2
    TabOrder = 6
    Visible = False
  end
  object playend: TMediaPlayer
    Left = 272
    Top = 304
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 13
    OnNotify = playendNotify
  end
  object DrawList: TListBox
    Left = 16
    Top = 104
    Width = 425
    Height = 145
    TabStop = False
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 50
    Visible = False
  end
  object selection: TPanel
    Left = 16
    Top = 104
    Width = 537
    Height = 145
    BevelInner = bvRaised
    Color = clSilver
    TabOrder = 52
    Visible = False
    object Label2: TLabel
      Left = 16
      Top = 40
      Width = 113
      Height = 48
      Caption = 'Select number of balls drawn and from how many.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label3: TLabel
      Left = 392
      Top = 32
      Width = 137
      Height = 80
      Caption = 
        'If number is not on the list, please press up and down arrow to ' +
        'select. Numbers 20 to 60 only.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label4: TLabel
      Left = 392
      Top = 8
      Width = 134
      Height = 16
      Caption = ' Press Finish to exit '
      Color = clLime
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object bonusboxes: TGroupBox
      Left = 152
      Top = 72
      Width = 89
      Height = 49
      TabOrder = 1
      object bonusbox: TCheckBox
        Left = 16
        Top = 16
        Width = 65
        Height = 17
        Hint = 'Select the Bonus Ball'
        Caption = 'Bonus'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 0
        OnClick = bonusboxClick
      end
    end
    object radioballs: TRadioGroup
      Left = 152
      Top = 8
      Width = 89
      Height = 73
      Hint = 'Select Number of balls'
      Caption = 'No of Balls'
      Columns = 2
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ItemIndex = 5
      Items.Strings = (
        '&1'
        '&2'
        '&3'
        '&4'
        '&5'
        '&6')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = radioballsClick
    end
    object selnum: TGroupBox
      Left = 280
      Top = 72
      Width = 89
      Height = 49
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      object numsel: TSpinEdit
        Left = 24
        Top = 16
        Width = 41
        Height = 26
        Hint = 'Select the number of balls here'
        EditorEnabled = False
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = []
        MaxLength = 2
        MaxValue = 60
        MinValue = 10
        ParentFont = False
        TabOrder = 0
        Value = 49
        OnChange = numselChange
      end
    end
    object selfrom: TRadioGroup
      Left = 280
      Top = 8
      Width = 89
      Height = 73
      Hint = 'Select how many balls drawn from'
      Caption = 'Select From'
      Columns = 2
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ItemIndex = 4
      Items.Strings = (
        '39'
        '42'
        '45'
        '47'
        '49'
        '51')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = selfromClick
    end
  end
  object Allbutton: TButton
    Left = 448
    Top = 48
    Width = 97
    Height = 49
    Caption = '&Begin Draw'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = AllbuttonClick
  end
  object Buttonsound: TButton
    Left = 440
    Top = 8
    Width = 113
    Height = 33
    Hint = 'Turn Sound On or Off'
    Caption = '&Sound [ON ]'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = ButtonsoundClick
  end
  object inifilebox: TListBox
    Left = 440
    Top = 368
    Width = 145
    Height = 57
    ItemHeight = 16
    TabOrder = 54
    Visible = False
  end
  object Panelstat: TPanel
    Left = 8
    Top = 96
    Width = 545
    Height = 163
    Color = clSilver
    TabOrder = 61
    Visible = False
    object Label10: TLabel
      Left = 448
      Top = 8
      Width = 90
      Height = 112
      Caption = 
        'Num of times the numbers came out, including the bonus ball, sin' +
        'ce last change'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Buttonstatok: TButton
      Left = 448
      Top = 120
      Width = 89
      Height = 33
      Hint = 'Press here to exit'
      Caption = '&OK'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = ButtonstatokClick
    end
    object statslist: TListBox
      Left = 8
      Top = 5
      Width = 433
      Height = 153
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panelchoice: TPanel
    Left = 264
    Top = 104
    Width = 289
    Height = 145
    Color = clSilver
    TabOrder = 59
    Visible = False
    object labelwhich2: TLabel
      Left = 16
      Top = 8
      Width = 190
      Height = 32
      Caption = 'Please enter your numbers. All numbers must be entered.'
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object Labelwhich1: TLabel
      Left = 16
      Top = 8
      Width = 184
      Height = 32
      Caption = 'Please enter your numbers. Any blanks must contain '#39'0'#39'.'
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object fav1: TSpinEdit
      Left = 16
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 2
      Value = 0
      OnChange = fav1Change
      OnExit = fav1Exit
      OnKeyUp = fav1KeyUp
    end
    object fav2: TSpinEdit
      Left = 40
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 3
      Value = 0
      OnChange = fav2Change
      OnExit = fav2Exit
      OnKeyUp = fav2KeyUp
    end
    object buttonfavclear: TButton
      Left = 216
      Top = 8
      Width = 65
      Height = 33
      Hint = 'Press here to clear selection'
      Caption = '&Clear'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = buttonfavclearClick
    end
    object Buttonfavexit: TButton
      Left = 216
      Top = 104
      Width = 65
      Height = 33
      Hint = 'Press here to exit'
      Caption = 'E&xit'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = ButtonfavexitClick
    end
    object fav3: TSpinEdit
      Left = 64
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 4
      Value = 0
      OnChange = fav3Change
      OnExit = fav3Exit
      OnKeyUp = fav3KeyUp
    end
    object fav4: TSpinEdit
      Left = 88
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 5
      Value = 0
      OnChange = fav4Change
      OnExit = fav4Exit
      OnKeyUp = fav4KeyUp
    end
    object fav5: TSpinEdit
      Left = 112
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 6
      Value = 0
      OnChange = fav5Change
      OnExit = fav5Exit
      OnKeyUp = fav5KeyUp
    end
    object fav6: TSpinEdit
      Left = 136
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 7
      Value = 0
      OnChange = fav6Change
      OnExit = fav6Exit
      OnKeyUp = fav6KeyUp
    end
    object fav7: TSpinEdit
      Left = 184
      Top = 56
      Width = 41
      Height = 26
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      MaxLength = 2
      MaxValue = 60
      MinValue = 0
      ParentFont = False
      TabOrder = 8
      Value = 0
      OnChange = fav7Change
      OnExit = fav7Exit
      OnKeyUp = fav7KeyUp
    end
    object blank6: TPanel
      Left = 160
      Top = 52
      Width = 20
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 9
    end
    object blank7: TPanel
      Left = 208
      Top = 54
      Width = 20
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 10
    end
    object blank5: TPanel
      Left = 136
      Top = 52
      Width = 32
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 11
    end
    object blank4: TPanel
      Left = 112
      Top = 52
      Width = 32
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 12
    end
    object blank3: TPanel
      Left = 88
      Top = 52
      Width = 32
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 13
    end
    object blank2: TPanel
      Left = 56
      Top = 52
      Width = 32
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 14
    end
    object blank1: TPanel
      Left = 40
      Top = 52
      Width = 24
      Height = 37
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 15
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 271
    Width = 568
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 
      'Welcome to MicroLot.  �J. Chan - Jan 97   Version 1.0 for Window' +
      's 95/NT'
    SizeGrip = False
  end
  object infopanel: TPanel
    Left = 8
    Top = 8
    Width = 545
    Height = 249
    Color = clSilver
    TabOrder = 60
    Visible = False
    object Label9: TLabel
      Left = 8
      Top = 11
      Width = 92
      Height = 16
      Caption = 'Date Last Run'
      Color = clSilver
      ParentColor = False
    end
    object Label22: TLabel
      Left = 8
      Top = 43
      Width = 94
      Height = 16
      Caption = 'Time Last Run'
      Color = clSilver
      ParentColor = False
    end
    object Label23: TLabel
      Left = 8
      Top = 75
      Width = 85
      Height = 16
      Caption = 'Program Run'
      Color = clSilver
      ParentColor = False
    end
    object Label24: TLabel
      Left = 216
      Top = 75
      Width = 81
      Height = 16
      Caption = 'Current Date'
      Color = clSilver
      ParentColor = False
    end
    object Label25: TLabel
      Left = 216
      Top = 107
      Width = 83
      Height = 16
      Caption = 'Current Time'
      Color = clSilver
      ParentColor = False
    end
    object Label26: TLabel
      Left = 8
      Top = 107
      Width = 49
      Height = 16
      Caption = 'Version'
      Color = clSilver
      ParentColor = False
    end
    object Label6: TLabel
      Left = 216
      Top = 11
      Width = 73
      Height = 16
      Caption = 'User Name'
      Color = clSilver
      ParentColor = False
    end
    object Label7: TLabel
      Left = 216
      Top = 43
      Width = 83
      Height = 16
      Caption = 'Organization'
      Color = clSilver
      ParentColor = False
    end
    object Buttoninfook: TButton
      Left = 432
      Top = 84
      Width = 89
      Height = 33
      Hint = 'Press here to exit'
      Caption = '&OK'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = ButtoninfookClick
    end
    object info1: TEdit
      Left = 104
      Top = 8
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 1
    end
    object info2: TEdit
      Left = 104
      Top = 40
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 2
    end
    object info3: TEdit
      Left = 104
      Top = 72
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 3
    end
    object info4: TEdit
      Left = 312
      Top = 72
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 4
    end
    object info5: TEdit
      Left = 312
      Top = 104
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 5
    end
    object info6: TEdit
      Left = 104
      Top = 104
      Width = 97
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 6
    end
    object info8: TEdit
      Left = 312
      Top = 40
      Width = 225
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 7
    end
    object info7: TEdit
      Left = 312
      Top = 8
      Width = 225
      Height = 24
      Color = clWhite
      ReadOnly = True
      TabOrder = 8
    end
    object Memo1: TMemo
      Left = 8
      Top = 136
      Width = 521
      Height = 105
      Color = clWhite
      Enabled = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = []
      Lines.Strings = (
        
          'MicroLot was written by Johnny Chan, age 23 as at December 1996 ' +
          'from UK.'
        
          'This is version 1.0 for Windows 95/NT. Released date 01 January ' +
          '97.'
        ''
        
          'Check my web site to see any future development and my other int' +
          'erests at'
        
          'http://home.clara.net/jcwchan.        Email to author : jcwchan@' +
          'clara.net'
        
          'Email about MicroLot : microlot@jcwchan.clara.net    Please use ' +
          'correct Email.')
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
    end
  end
  object passwordpanel: TPanel
    Left = 8
    Top = 8
    Width = 545
    Height = 249
    BevelInner = bvLowered
    BevelWidth = 5
    Color = clSilver
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    TabOrder = 55
    Visible = False
    object Label8: TLabel
      Left = 328
      Top = 190
      Width = 64
      Height = 16
      Caption = 'Password'
      Color = clSilver
      ParentColor = False
    end
    object regmessa: TLabel
      Left = 32
      Top = 16
      Width = 474
      Height = 64
      Caption = 
        'To unlock this shareware version, please obtain a password. Micr' +
        'oLot is Shareware. Email me on : microlot@jcwchan.clara.net and ' +
        'in subject heading, enter '#39'MICROLOT FULL VERSION'#39'. Support is av' +
        'ailable by entering '#39'MICROLOT SUPPORT'#39' in subject heading.'
      Color = clSilver
      ParentColor = False
      WordWrap = True
    end
    object labelemail: TLabel
      Left = 16
      Top = 190
      Width = 94
      Height = 16
      Caption = 'Email Address'
      Color = clSilver
      ParentColor = False
    end
    object regmessb: TLabel
      Left = 32
      Top = 88
      Width = 481
      Height = 64
      Caption = 
        'Please include your name, address, including country, so I can e' +
        'mail you details in how to send payment to me. Any future update' +
        's and user support will be available free of charge. Downloads a' +
        're subject to internet and phone cost.'
      Color = clSilver
      ParentColor = False
      WordWrap = True
    end
    object regmessc: TLabel
      Left = 144
      Top = 136
      Width = 268
      Height = 16
      Caption = 'Please also include the code on the right.'
    end
    object Label12: TLabel
      Left = 12
      Top = 168
      Width = 514
      Height = 16
      Caption = 
        'Check my web site for details of updates && cost at http://home.' +
        'clara.net/jcwchan'
    end
    object passwordedit: TEdit
      Left = 328
      Top = 208
      Width = 73
      Height = 24
      Hint = 'Enter password here'
      Color = clWhite
      MaxLength = 7
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnKeyUp = passwordeditKeyUp
    end
    object passexit: TButton
      Left = 472
      Top = 208
      Width = 57
      Height = 25
      Hint = 'Press here to exit registration'
      Caption = '&Exit'
      TabOrder = 2
      OnClick = passexitClick
    end
    object passok: TButton
      Left = 408
      Top = 208
      Width = 57
      Height = 25
      Hint = 'Press here to enter password'
      Caption = '&OK'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = passokClick
    end
    object passwordemail: TEdit
      Left = 16
      Top = 208
      Width = 305
      Height = 24
      Hint = 'Enter email here'
      Color = clWhite
      MaxLength = 35
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnKeyUp = passwordemailKeyUp
    end
    object securitycodebox: TEdit
      Left = 416
      Top = 136
      Width = 73
      Height = 24
      Hint = 'Send this code with your payment to unlock'
      TabStop = False
      Color = clWhite
      ReadOnly = True
      TabOrder = 4
      Text = '0'
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 448
    Top = 336
  end
  object Timer2: TTimer
    Interval = 55
    OnTimer = Timer2Timer
    Left = 480
    Top = 336
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Left = 528
    Top = 336
  end
  object PrintDialog: TPrintDialog
    Options = [poWarning]
    Left = 504
    Top = 336
  end
  object backuptimer: TTimer
    Enabled = False
    Interval = 7000
    OnTimer = backuptimerTimer
    Left = 560
    Top = 336
  end
end